home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SCROLL < prev    next >
Text File  |  1994-12-13  |  294b  |  5 lines
  1. SCROLL: procedure;parse arg line,text;sp=2;getuser27;ll=result-1
  2.     do a=1 to length(text)+ll;ch=substr(text,a,1);if index('¹²³',ch)>0 then sp=translate(ch,'246','¹²³')
  3.     else sendstring ''line';0HP'line';'ll'H'ch;call delay(sp);maygetchar;if result~='NOCHAR' then leave;end
  4.   return
  5.